home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 43
/
Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso
/
-serious-
/
graphics
/
fxforge
/
bonny tiler
< prev
next >
Wrap
Text File
|
1999-06-15
|
1KB
|
26 lines
Category: Filter Factory Gallery L
Title: Bonny Tiler...
Author: Mario Klingemann
Copyright: Copyright © Visual Manipulation
ctl[0]: Width
ctl[1]: Height
ctl[2]:
ctl[3]:
ctl[4]: Maximum X-Offset
ctl[5]: Maximum Y-Offset
ctl[6]:Randomat One
ctl[7]: Randomat Two
val[0]: 78
val[1]: 78
val[2]: 0
val[3]: 0
val[4]: 207
val[5]: 165
val[6]: 165
val[7]: 165
R:put(ctl(1)>0?val(1,0,Y):val(0,0,Y),4),put(x%val(0,0,X),0),put(y%get(4),1),put(x-get(0),2),put(y-get(1),3),src(min(X-val(0,0,X)+get(0),((get(3)+9+ctl(6))*(get(2)+3+ctl(7)))%val(4,0,X)+get(2)+get(0)),min(Y-get(4)+get(1),((get(2)+5+ctl(7))*(get(3)+11+ctl(6)))%val(5,0,Y)+get(3)+get(1)),z)
G:src(min(X-val(0,0,X)+get(0),((get(3)+9+ctl(6))*(get(2)+3+ctl(7)))%val(4,0,X)+get(2)+get(0)),min(Y-get(4)+get(1),((get(2)+5+ctl(7))*(get(3)+11+ctl(6)))%val(5,0,Y)+get(3)+get(1)),z)
B:src(min(X-val(0,0,X)+get(0),((get(3)+9+ctl(6))*(get(2)+3+ctl(7)))%val(4,0,X)+get(2)+get(0)),min(Y-get(4)+get(1),((get(2)+5+ctl(7))*(get(3)+11+ctl(6)))%val(5,0,Y)+get(3)+get(1)),z)
A:src(min(X-val(0,0,X)+get(0),((get(3)+9+ctl(6))*(get(2)+3+ctl(7)))%val(4,0,X)+get(2)+get(0)),min(Y-get(4)+get(1),((get(2)+5+ctl(7))*(get(3)+11+ctl(6)))%val(5,0,Y)+get(3)+get(1)),z)